   1 .
   2 .SOUND-GRAPH
   3 .
  10 clear ;NT=0;&(9)=235;&(10)=0;BC=3;FC=8;CX=-71;CY=-39;print "S O U N D - G R A P H";box 0,-39,160,9,3
  15 for C=0to 180;&(10)=C;next C;&(0)=5;&(1)=5;&(2)=89;&(3)=89;for T=0to 999;next T
  20 CY=38;print " R";print " E";print " G";print " I";print " S";print " T";print " E";print " R";for T=0to 999;next T
  22 CY=38;print "   MASTER OSCILLATOR";print "   VOICE A";print "   VOICE B";print "   VOICE C";print "   VIBRATO / &(21) <16!
  24 print "   NOISE CONTROL/VOL.C";print "   VOLUME A + B";print "   NOISE VOLUME
  26 CY=38;for A=16to 23;print #1,A;next A;for C=235to 227step -1;&(9)=C;for T=0to 99;next T;next C;CY=-30;print ">>",
  30 &(2)=89;&(3)=89;M=KN(1)+128;if M=Vgoto 50
  40 V=M;Y=-30;gosub 80
  50 L=L-JY(1);if L<1L=1
  60 if L>8L=8
  70 Y=46-8mul L;box -74,Y,12,7,2;CX=-77;CY=Y;print #1,15+L,;if TR(1)&(2)=139;&(3)=139;gosub 80;&(15+L)=V
  75 goto 30
  80 box 6,Y,148,7,2;if Vdiv 2=0goto 100
  90 box Vdiv 4-68,Y,Vdiv 2,5,1
 100 CX=64;CY=Y;print #1,V,;return 
>:return 
